CREATE OR REPLACE PACKAGE pkg_msg_array
IS
   TYPE msg_array_type
   IS TABLE OF VARCHAR2( 1000 )
   INDEX BY BINARY_INTEGER;
   
   g_msg_array msg_array_type;
   g_idx INTEGER;
   
   PROCEDURE p_add( message VARCHAR2 );
   PROCEDURE p_clear;
   PROCEDURE p_print
      ( how VARCHAR2 := 'HTML'
      , table_style VARCHAR2 DEFAULT NULL
      , table_header VARCHAR2 DEFAULT NULL
      , th_style VARCHAR2 DEFAULT NULL
      , td_style VARCHAR2 DEFAULT NULL );

END pkg_msg_array;
